home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1997 August / Oasis demo.iso / Office / Claris13 / CLARIS.CST / 00055_Script_55 < prev    next >
Text File  |  1997-03-20  |  582b  |  25 lines
  1. on xtracopypress
  2.   
  3.   
  4.   if the platform contains   "Mac" then
  5.     
  6.     global warnprs
  7.     set warnprs = "on"
  8.     put "hello"
  9.   else
  10.     
  11.     openXLib "Xtras\filecopy"  -- custom xtra
  12.     
  13.     set filename = the pathName&"presstxt\"&the name of cast the mousecast
  14.     
  15.     if fileName > "" then
  16.       set wFileName = doSaveAsDlg(the pathName&"presstxt\"&the name of cast the mousecast, "Word@*.doc")
  17.       if wFileName > "" then
  18.         copyFile(wFileName, fileName)
  19.       end if  
  20.     end if
  21.     
  22.     closeXLib "Xtras\filecopy"
  23.   end if
  24.   
  25. end xtracopypress